let foo a b = a + b [@@profiling]
